home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 12
/
012.d81
/
back issue boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
960b
|
26 lines
0 rem back issue boot
10 poke53280,6:poke53281,0:print"[147]"
20 print" [217]ou are about to enter the realm of "
30 print" [194][193][195][203][160][201][211][211][213][197][211]."
35 gosub10000
40 print"[147] [212]o scroll through the back issue"
50 print"list, simply press the [198]1 or [198]7 keys."
60 print"[217]ou may also search for a particular"
70 print"word or phrase. [211]imply press 'f' to "
80 print"begin the search. [215]hile the computer"
90 print"is searching, the border will flash."
100 print"[201]f the border stops, don't worry, the"
110 print"computer is merely housekeeping."
120 print"[201]f you want to stop while the computer"
130 print"is searching, just press a key."
140 gosub10000
150 print"[147]"
160 print" 1. [204]ook at back issue list"
170 print" 2. [210]eturn to [204][207][193][196][211][212][193][210]"
180 print"[215]hich?"
190 poke198,0:wait198,1:getk$:ifk$<>"1"andk$<>"2"then150
200 ifk$="1"thenf$="back issues"
210 ifk$="2"thenf$="hello"
220 print"[147]load"chr$(34)f$chr$(34)",8":print"run":poke631,13:poke632,13:poke198,2:end
10000 print""spc(12)"<press a key>":poke198,0:wait198,1:return